c----67--1---------2---------3---------4---------5---------6---------7-!
      integer    iem
      parameter (iem = 100000)
      integer    eln(iem,0:27)
      common    /element/ eln
c----67--1---------2---------3---------4---------5---------6---------7-!
